;;;; Terje Norderhaug <terje@in-progress.com>;; string-resource-patch.lisp for RMCL 5.2.1 (and back to MCL 5.1).;;;; Resolves issue #30:;; http://code.google.com/p/mcl/issues/detail?id=30(in-package :ccl)(let ((*warn-if-redefine* nil)      (*warn-if-redefine-kernel* nil))(defun get-string (name-or-number &optional used-file-only? dont-release)  (let ((str (get-resource "STR " name-or-number used-file-only?)))    (when str      (unwind-protect        (%get-string-from-handle str)        (unless dont-release (#_ReleaseResource str))))))) ; end redefine